|
30
|
How do I know the thumbnail's size (sample 1)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComInputFile to "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
Send ComEndUpdate
Showln "Width: " (ComThumbnailWidth(Self))
Showln "Height: " (ComThumbnailHeight(Self))
End_Procedure
|
|
29
|
Is it possible to get the dimensions of the picture file
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComInputFiles to "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
Set ComCaption to "`Dimensions: <b>` + fwidth + ` x ` + fheight"
Send ComEndUpdate
End_Procedure
|
|
28
|
Is there any function to determine whether the file is a picture
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Send ComAddInputFiles "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
Send ComAddInputFiles "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg.2"
Set ComCaption to "`IsPicture: <b>` + (fpicture ? `Yes` : `No`)"
Send ComEndUpdate
End_Procedure
|
|
27
|
How can I get the type of the file, like JPG File, and so on...
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComInputFiles to "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
Set ComCaption to "`Type: <b>` + ftype"
Send ComEndUpdate
End_Procedure
|
|
26
|
How do I get the file/folder's attributes
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComInputFiles to "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
Set ComCaption to "`Attributes: <b>0x` + hex(fattr)"
Send ComEndUpdate
End_Procedure
|
|
25
|
How can I determine if the giving input object is a file, folder (sample 2)
Procedure OnCreate
Forward Send OnCreate
Showln (ComFormatABC(Self,"`The ` + fname + ` ` + ( ffolder = -1 ? `is a folder` : ( ffolder = +1 ? `is a file` : `is not found` ) ) + `.`","C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"))
Showln (ComFormatABC(Self,"`The ` + fname + ` ` + ( ffolder = -1 ? `is a folder` : ( ffolder = +1 ? `is a file` : `is not found` ) ) + `.`","C:\Program Files\Exontrol\ExThumbnail\Sample"))
Showln (ComFormatABC(Self,"`The ` + ffile + ` ` + ( ffolder = -1 ? `is a folder` : ( ffolder = +1 ? `is a file` : `is not found` ) ) + `.`","C:\Program Files\Exontrol\ExThumbnail\Sample\elogo2.jpg"))
End_Procedure
|
|
24
|
Is there any function to get automatically the size of the file in KB, MB or GB
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComInputFiles to "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
Set ComCaption to "`Size: <b>` + fsizeF"
Send ComEndUpdate
End_Procedure
|
|
23
|
How can I get the size of the file (GB)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComInputFiles to "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
Set ComCaption to "`Size: <b>` + ( (fsize/1024/1024/1024) format `` ) + ` GB(s)`"
Send ComEndUpdate
End_Procedure
|
|
22
|
How can I get the size of the file (MB)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComInputFiles to "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
Set ComCaption to "`Size: <b>` + ( (fsize/1024/1024) format `` ) + ` MB(s)`"
Send ComEndUpdate
End_Procedure
|
|
21
|
How can I get the size of the file (KB)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComInputFiles to "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
Set ComCaption to "`Size: <b>` + ( (fsize/1024) format `` ) + ` KB(s)`"
Send ComEndUpdate
End_Procedure
|
|
20
|
How can I get the size of the file (bytes)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComInputFiles to "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
Set ComCaption to "`Size: <b>` + fsize + ` byte(s)`"
Send ComEndUpdate
End_Procedure
|
|
19
|
How do I get the time the file was created, opened and modified
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComPadding to ""
Set ComAlignment to OLEexAlignBottomCenter
Set ComInputFiles to "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
Set ComCaption to "`Created: <b><r>` + date(fcreated - bias/24/60) + `</b>` + `<br>` + `Modified: <b><r>` + date(fmodified - bias/24/60) + `</b>`+ `<br>` + `Last Opened: <r><b>` + date(fopened - bias/24/60) + `</b>`"
Set ComSingleCaption to (ComCaption(Self))
Send ComEndUpdate
End_Procedure
|
|
18
|
How can I display the date/time the file/folder was last opened
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComInputFiles to "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
Set ComCaption to "`Opened: <b>` + date(fopened - bias/24/60)"
Set ComSingleCaption to (ComCaption(Self))
Send ComEndUpdate
End_Procedure
|
|
17
|
How can I display the date/time the file/folder was last modified
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComInputFiles to "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
Set ComCaption to "`Modified: <b>` + date(fmodified - bias/24/60)"
Send ComEndUpdate
End_Procedure
|
|
16
|
How can I display the date/time the file/folder was created
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComInputFiles to "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
Set ComCaption to "`Created: <b>` + longdate(date(fcreated - bias/24/60)) + ` ` + time(date(fcreated - bias/24/60))"
Set ComSingleCaption to (ComCaption(Self))
Send ComEndUpdate
End_Procedure
|
|
15
|
How can I get the alternate name of the file
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComInputFiles to "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
Set ComCaption to "`Alternate Name: <b>` + faname + `</b>, Name: <b>` + fname"
Send ComEndUpdate
End_Procedure
|
|
14
|
How can I get the file's extension
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComInputFiles to "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
Set ComCaption to "`Extension: <b>` + fext"
Send ComEndUpdate
End_Procedure
|
|
13
|
I've noticed the Caption property can use expressions, based on the file, the question is how can I use that feature without the Caption property
Procedure OnCreate
Forward Send OnCreate
Showln (ComFormatABC(Self,"ffile +` ` + ( len(fname) ? `this is a file/folder`: `not found`)","C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"))
End_Procedure
|
|
12
|
Can I determine if a file/thumbnail exists (sample 1)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Send ComAddInputFiles "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
Send ComAddInputFiles "sss"
Set ComCaption to "len(fname) ? `this is a file/folder` : `<fgcolor=FF0000><u>not found`"
Send ComEndUpdate
End_Procedure
|
|
11
|
How can I display the name of the file
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComInputFiles to "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
Set ComCaption to "`Name: <b>` + fname"
Send ComEndUpdate
End_Procedure
|
|
10
|
How can I display the full name of the file
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComInputFiles to "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
Set ComCaption to "ffile"
Send ComEndUpdate
End_Procedure
|
|
9
|
How can I display the index/number of files/thumbnails
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAcceptFolders to OLEexIncludeSubFilesOnly
Send ComAddInputFiles "C:\Program Files\Exontrol\ExThumbnail\Sample"
Set ComCaption to "(findex + 1) + ` of ` + fcount"
Send ComEndUpdate
End_Procedure
|
|
8
|
How can I add more files ( sample 3 )
Procedure OnCreate
Forward Send OnCreate
Send ComAddInputFiles "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
Send ComAddInputFiles "C:\Program Files\Exontrol\ExThumbnail\Sample\device.png"
End_Procedure
|
|
7
|
How can I add more files ( sample 2 )
Procedure OnCreate
Forward Send OnCreate
Set ComInputFiles to "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg\r\nC:\Program Files\Exontrol\ExThumbnail\Sample\logo.png\r\nC:\Program Files\Exontrol\ExThumbnail\Sample\cordova.png"
End_Procedure
|
|
6
|
How can I add more files ( sample 1 )
Procedure OnCreate
Forward Send OnCreate
Set ComInputFile to "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg\r\nC:\Program Files\Exontrol\ExThumbnail\Sample\EndangeredAnimals.png"
End_Procedure
|
|
4
|
How can I add a file ( sample 3 )
Procedure OnCreate
Forward Send OnCreate
Send ComAddInputFiles "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
End_Procedure
|
|
3
|
How can I add a file ( sample 2 )
Procedure OnCreate
Forward Send OnCreate
Set ComInputFiles to "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
End_Procedure
|
|
2
|
How can I add a file ( sample 1 )
Procedure OnCreate
Forward Send OnCreate
Set ComInputFile to "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
End_Procedure
|